home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / hibow.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  563b  |  27 lines
  1. /* ORC - Sends random hi-lighted text to destination specified       */
  2. options results
  3. parse arg orcport nick a1
  4. orcport = trim(orcport)
  5. nick = trim(nick)
  6. a1 = trim(a1)
  7.  
  8. wb = '02'x
  9. wv = '16'x
  10. wu = '1f'x
  11.  
  12. ii = 0
  13. outstr = ''
  14. do while a1 ~= ''
  15.   parse var a1 wd a1
  16.   if randu(time('s')) > 0.5 then outstr = outstr''wb
  17.   if randu(17*time('s')) > 0.5 then outstr = outstr''wv
  18.   if randu(3*time('s')) > 0.5 then outstr = outstr''wu
  19.   outstr = outstr''wd' '
  20.   ii = ii + 1
  21. end
  22.  
  23. if show('P', orcport) then do
  24.   address value orcport
  25.     cnetirccmd '/m 'nick' 'outstr
  26. end
  27.